unit unitBLLFileInfos;

interface
uses Classes, unitModelFileInfos, unitDALFileInfo, unitEnums;

type
{ TBLLFileInfo }
  TBLLFileInfo = class(TObject)
  private
    dal: TDALFileInfo;
  protected
  public
    constructor Create;
    destructor Destroy; override;
    procedure Assign(ASource, ADestination: TFileInfos);
    procedure Build(model: TFileInfos; strFullFileName: string; myFileState: FileState = Normal);
    function Compare(modelSou, modelDes: TFileInfos; myCompare: FileCompare = fsNameAndPath): Boolean;
  published
  end;
implementation

{ TBLLFileInfo }

procedure TBLLFileInfo.Assign(ASource, ADestination: TFileInfos);
begin
  dal.Assign(ASource, ADestination);
end;

procedure TBLLFileInfo.Build(model: TFileInfos; strFullFileName: string; myFileState: FileState = Normal);
begin
  dal.Build(model, strFullFileName, myFileState);
end;

function TBLLFileInfo.Compare(modelSou, modelDes: TFileInfos; myCompare: FileCompare = fsNameAndPath): Boolean;
begin
  Result := dal.Compare(modelSou, modelDes, myCompare);
end;

constructor TBLLFileInfo.Create;
begin
  dal := TDALFileInfo.Create;
end;

destructor TBLLFileInfo.Destroy;
begin
  dal.Free;
  inherited;
end;

end.

